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listed above, the following organi- 
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This manual is the result of con- 
tributions made by all of the above 
mentioned organizations. No war- 
ranty, express or implied, is made 
by any contributor or by the com- 
mittee as to the accuracy and 
functioning of the programming 
system and language. Moreover, no 
responsibility is assumed by any 
contributor, or by the committee, 
in connection therewith. 

It is reasonable to assume that a 
number of improvements and addi- 
tions will be made to COBOL. 
Every effort will be made to insure 
that the improvements and correc- 
tions will be made in an orderly 
fashion, with due recognition of 
existing users’ investments inpro- 
gramming. However, this pro- 
tection can be positively assured 
only by individual implementors. 

Procedures have been established 
for the maintenance of COBOL. 
Inquiries concerning the proced- 
ures and methods for proposing 
changes should be directed to the 
Executive Committee of the Con- 
ference on Data Systems Lan- 
guages. 

The authors and copyright holders 
of the copyrighted material used 


herein: FLOW-MATIC (Trade- 

mark of the Sperry-Rand Corp- 
oration), Programming for the 
UNIVAC I and II, Data Automation 
Systems 1958, 1959, Sperry-Rand 
Corporation; IBM Commercial 
Translator, Form No. F28-8013, 
copyrighted 1959 by IBM; FACT, 
DSO 27A5260-2760, copyrighted 
1960 by Minneapolis -Honeywell; 
have specifically authorized the 
use of this material, in whole or in 
part, in the COBOL specifications . 
Such authorization extends to the 
reproduction and use of COBOL 
specifications in programming 
manuals or similar publications. 

Any organization interested in re- 
producing the COBOL report and 
initial specifications in whole or 
in part, using ideas taken from this 
report or utilizing this report as 
the basis for an instruction manual 
or any other purpose is free to do 
so. However, all such organi- 
zations are requested to reproduce 
this section as part of the intro- 
duction to the document. Those 
using a short passage, as in a book 
review, are requested to mention 
COBOL in acknowledgment of 
the source but need not quote this 
entire section. 


1.2 INTRODUCTION TO COBOL 


What is COBOL? COBOL(COmmon 
Business Oriented Language) repre- 
. sents a joint effort made by the manu- 
facturers and users of data proces- 
sing systems to develop a common 
programming language which, with 


modifications, could be used on any 
computer regardless of manufacturer 
or model. Those of you who are fam- 
with S/360 assembly language 
know that, in general, a program writ- 
ten in this language can be assembled 
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and run on any model 360 as long as 
the input/output units, features, and 
amount of storage required by the 
program are present. 

This is not always the case when 
we leave the S/360. For example, in 
order to meet their needs many user s 
found it necessary to possess several 
computers; either made by one manu- 
facturer or different manufacturers. 
To write programs for these com- 
puters, a programmer had to be con- 
versant with the assembly language 
developed for each computer . In addi- 
tion, programs written for one com- 
puter were not acceptable to another. 
To be able to run a program written 
for one computer on another , the pro- 
gram had to be re-written using the 
assembly language for that computer . 

This problem arises from the fact 
that assembly languages are “ma- 
chine-oriented” in that they must 
reflect the characteristics ofthe spe- 
cific computer for which they were 
designed. In other words, when a 
programmer writes the coded in- 
structions to solve a problem, his 


solution will necessarily be in terms 
of the logic of the computer to be used 
rather than human logic. 

COBOL, on the other hand, repre- 
sents an attempt to relieve the pro- 
grammer of the necessity of knowing, 
for example, the requirements of a 
move instruction, thereby allowing 
him to concentrate on the logical 
solution of his problem. Put in another 
way, COBOL is “problem-oriented”. 
It is designed in terms of the solution 
of problems rather than the technical 
characteristics of a given computer. 
COBOL is relatively machine-inde- 
pendent in that a COBOL programmer 
can program for a wide range of com- 
puters with very little additional 
knowledge . 

How does COBOL work? COBOL is 
a language complete with a vocabulary 
of nouns, verbs and adjectives. Pro- 
grams are written in English and 
consist of sentences and paragraphs. 
For example, the COBOL statements 
required to move the contents of FLDA 

to F LDB and add the contents of F LDC 
to FLDD, would be as follows: 


MOVE FLDA TO F LDB. 


ADD F LDC TO FLDD. 


Now, we know that a program writ- 
ten in an assembly language must 
eventually be translated into machine 
language in order for it to be run. 
COBOL programs are no exception to 
this rule. Each manufacturer of com- 
puters has developed an assembly 
program, known as the ‘compiler’, 
which will recognize programs writ- 
ten in COBOL and translate them into 


machine language instructions ac- 
ceptable to the designated computer. 
This, in brief, is the logic on which 
the COBOL system is built: the lan- 
guage remains the same regardless 
of the computer to be used while the 
compiler changes to adjust to the re- 
quirements of the object computer. 
The programmer creates a source 
program which will meet COBOL re- 
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quirements. If the program were to be 
run on S/360, one of the 360 COBOL 
compilers would be used to produce 
an object program acceptable to the 
360. If the program were to be run on 
a 1401, for example, then a 1401 
compiler would then have to be used. 

In summary, COBOL is a program- 
ming language which enables the pro- 
grammer to concentrate on the 
solution of problems. The program is 
written in English and is organized 


into sentences and paragraphs. To 
implement the COBOL system, com- 
puter manufacturers have developed 
compilers which will produce object 
programs acceptable to their com- 
puters, from source programs written 
in the COBOL language. Advantages 
deriving from the use of COBOL are 
the fact that 'op 1 codes are the same 
regardless of which computer is to be 
used and, that programs written in 
COBOL can be read and understood 
by almost anyone. 


1.3 COBOL FOR THE 360 


Although a COBOL programmer 
need never know the ‘op’ codes and 
formats of machine instructions, he 
may be required to know the formats 
in which data may be represented in 
his computer. If his computer uses 
only one form of data representation, 
such as BCD, he need not concern 
himself with this problem. If, how- 
ever, his computer requires different 
formats for character representation 
and arithmetic operations, he must be 
aware of this so that his data will 
be in the correct format for a given 
operation. 

The 360 is a case in point. Data 
is normally in character format. How- 
ever, if numeric data is to be involved 
in any arithmetic calculations, it must 
be in the format required by the type 
of arithmetic being performed, i.e. 
binary, decimal or floating-point. The 
compiler will generate the necessary 
instructions in the object program to 
convert the data to the proper format 
but the programmer must tell the 
compiler the original format of the 
data and the format in which the re- 


sult is to be stored. It would be useful, 
therefore, if we stop for a moment to 
review the organization of 360 storage 
and its data formats and also to learn 
the terms which are used to describe 
these formats to the compiler. 

The basic building block of storage 
is called a ‘byte’. Each byte has its 
own address with addresses starting 
at zero and continuing to the last 
installed byte. Consequently, a byte 
is the smallest addressable unit of 
storage in the 360. Bytes are grouped 
into fixed-length fields of 2, 4 or 8 
bytes for binary operations, and var- 
iable-length fields for decimal oper- 
ations . 

Each byte consists of 9 magnetic 
bits. One bit functions as a parity bit 
while the remaining 8 bits are used to 
represent the contents of the byte. 
When data is read it is converted 
to the internal code of the machine 
which is the Extended Binary Coded 
Decimal Interchange Code (EBCDIC). 
In this format, the leftmost 4 bits of 
the byte function as a zone portion and 
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the rightmost 4 bits as a numeric por- 
tion. In EBCDIC, then, the combination 
of the zone and the numeric portions 
indicate the character stored in the 


byte. The zone codes used for alpha 
betic and numeric characters are 
shown below - 


Zone Code 

Characters 

1100 

Letters A - I 

1101 

Letters J - R 

1110 

Letters S - Z 

1111 

Digits 0-9 


The coding for letters of the alpha- 
bet and the digits 0 - 9 is given below - 


EBCDIC 

Code 

Character 

EBCDIC 

Code 

Character 

1100 

0001 

A 

1110 

0010 

S 

1100 

0010 

B 

1110 

0011 

T 

1100 

0011 

C 

1110 

0100 

U 

1100 

0100 

D 

1110 

0101 

V 

1100 

0101 

E 

1110 

0110 

W 

1100 

0110 

F 

1110 

0111 

X 

1100 

0111 

G 

1110 

1000 

Y 

1100 

1000 

H 

1110 

1001 

Z 

1100 

1001 

I 







mi 

0000 

0 

1101 

0001 

J 

nil 

0001 

1 

1101 

0010 

K 

nil 

0010 

2 

1101 

0011 

L 

n n 

0011 

3 

1101 

0100 

M 

nil 

0100 

4 

1101 

0101 

N 

nil 

0101 

5 

1101 

0110 

O 

nil 

0110 

6 

1101 

0111 

P 

nil 

0111 

7 

1101 

1000 

Q 

nil 

1000 

8 

1101 

1001 

R 

nil 

1001 

9 
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The programmer describes afield 
which is in EBCDIC as being in 
‘DISPLAY’ format. The compiler re- 
cognizes the COBOL word ‘DISPLAY’ 
to mean that the data is coded in 
EBCDIC, one character to a byte. In 
a COBOL program much of the data 
(names, addresses, account number s, 
etc.) will be converted as it is read 
to EBCDIC and its format never 
changed. However, data on which cal- 
culations are to be performed maybe 
converted to a computational format 
before the calculations are made. 

The two types of arithmetic which 
will concern us in this text are binary 
and decimal. Let’s take binary arith- 
metic first. In EBCDIC, the leftmost 
4 bits of each byte served to identify 
the category of the character, i.e. 
alphabetic -- and if so, which of the 
three groups -- or numeric. The 
rightmost 4 bits -- proceeding from 


left to right -- have a value of 8, 4, 
2 and 1 respectively. Once the cate- 
gory has been identified, we add the 
place values of those bits which are 
on, i.e. a ‘1’, to arrive at the charac- 
ter represented by the code. For 
example, the zone 1111 indicates a 
digit. If a byte contained 1111 0011, 
we see that the 2 bit and the 1 bit 
are on giving us a value of decimal 3. 
However, if a byte contained 1100 
0011, the zone would identify it as 
belonging to the group of letters A-I, 
and the numeric portion would identify 
it as the third letter of the group -‘C’. 

A byte of binary data, on the other 
hand, does not contain a zone portion. 
Instead, each bit in the byte partici- 
vates as a binary value. The place 
values assigned to each bit -- going 
from left to right -- are 128, 64, 32, 
16, 8, 4, 2 and 1 as illustrated below: 


Place Value 

128 

64 

32 

00 

v£> 
r— 1 

4 

2 

1 

Bit 

0 

0 

1 

0 1 

0 

0 

0 














The sum of the place values of 
those bits which are on, indicates the 
value contained in the byte. In the pre- 
ceding example, the value stored in 
the byte had a decimal value of 40 
(32 + 8). The COBOL word ‘COMPU- 
TATIONAL’ is used to describe data 
in the binary format. The compiler 
understands that data contained in -- 
or to be stored in -- a field described 
as COMPUTATIONAL should be in the 


binary format. If the data is to be 
stored and is not already in binary 
format, the compiler will produce the 
necessary instructions in the object 
program to convert the data prior to 
storing it. 

Decimal arithmetic, on the other 
hand, is performed on data which is in 
the ‘packed’ format. In this format, 
two digits occupy each byte except for 
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the rightmost byte which is shared by 
the sign. Let’s look at an example of 


1 


We see that each digit occupies one 
byte which is composed of the zone 
and the numeric portion. The zone of 
the rightmost byte is the sign position 


Note that in the packed format, the 
sign occupies the 4 low-order bits of 
the rightmost byte. Data which is 
either already in packed format or to 
be stored in packed format is des- 
cribed by the COBOL word COMPU- 
TATIONAL-!. The compiler under- 
stands that data obtained from or 
stored in a field described as COMP- 
UTATIONAL- 3 should be in packed 
format and will generate the neces- 
sary instructions in the object 
program. 

Now, since each COBOL compiler 
is designed to produce an object pro- 


the number 193 stored in EBCDIC or 
DISPLAY format. 


9 3 


for the entire field. When data is in 
the packed format, the zones are re- 
moved except for the sign, and two 
digits share each byte as shown below: 


gram for a particular machine, it 
follows that a 360 COBOL compiler, 
and its language, must reflect the 
unique characteristics of S/360. We 
will learn how the 360 COBOL lan- 
guage provides for these character- 
istics as we go along. For the moment, 
however, we can say that a 360 COBOL 
programmer is machine -dependent 
primarily in the area of data formats. 
In other words, a COBOLprogrammer 
does not have to know the machine 
instructions required to solve a prob- 
lem but he must know the formats in 
which the processed data can be 
represented. 


1111 0001 


mi looi 


ini oon 


Sign 
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2.1 COBOL PROGRAM STRUCTURE 


DIVISIONS 

Every COBOL program is divided 
into four major parts which are called 


'divisions'. The names of the divi- 
sions and their functions are shown 
below - 


Division Name 

F unction 

Identification 

Program identification 

Environment 

Designation of input/output units and techniques 

Data 

Definition of files, work areas and constants 

Procedure 

Procedures (instructions) for the solution of the 


problem 


The order in which the divisions 
must appear is fixed and is the order 
shown above, i. e. Identification divi- 
sion first, Environment division sec- 
ond, Data division third, followed by 
the Procedure division. In our coding, 


the beginning of a division is marked 
by a header entry which is made up of 
the division name followed by the 
wordDIVISION and a period, as illus- 
trated below. 


ENVIRONMENT DIVISION 


This entry must appear on a separate 
line; nothing else may be written on 
the line. The compiler recognizes 
the end of a division when it encoun- 
ters the header entry for the next 
division. Also, there is no 'end' 


statement in a COBOL program; the 
compiler understands that the end of 
program has been reached when there 
are no more cards to be read in the 
source program. 
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SECTIONS 

Divisions normally consist of sec- 
tions which are indicated in the coding 
by a header entry consisting of the 
section name followed by the word 
SECTION and a period., e.g. FILE 
SECTION. . The header entry must 
appear on a line by itself. There are 
two exceptions to this rule, however. 
Because of its small size, the Identi- 
fication division omits sections while 
in the Procedure Division, their use 
is optional. Section names in the 
Data and Environment divisions are 
fixed and cannot be changed by the 
programmer. In the Procedure divi- 
sion, however, their use is optional 


and their names are created by the 
programmer. 

PARAGRAPHS 

Paragraphs are the next smallest 
grouping in a COBOL program and 
they appear in all divisions except the 
Data division. A header entry con- 
sisting of the paragraph name fol- 
lowed by a period indicates the begin- 
ning of a paragraph. In the example 
shown below, SOURCE- COMPUTER 
is the paragraph name. Note that the 
word PARAGRAPH does not appear in 
the entry. Also, although a paragraph 
name must be the first entry on a 
line, it does not have to appear on a 
line by itself. 


SOURCE-COMPUTER. IBM- 360 


Paragraph names in the Procedure 
division are created by the program- 
mer while in the Identification and 
Environment divisions they are fixed. 

ENTRIES 

The smallest complete unit of a 
COBOL pro gram is an entry --or 
sentence. Entries consist of several 
elements and end with a period. 

To summarize, every COBOL pro- 
gram is comprised of four divisions. 
Some of the divisions are divided into 
sections which are further sub-divi- 
ded into paragraphs. All of the divi- 


sions contain entries. In coding a 
COBOL program, divisions, sec- 
tions and paragraphs are identified by 
header entries whichindicate the name 
of the division, section or paragraph. 
In the case of divisions and sections, 
the name is followed by the words 
DIVISION or SECTION, as appro- 
priate, and ends with a period. Noth- 
ing else may appear on this line. 
Paragraph names are followed im- 
mediately by a period - the word 
'PARAGRAPH' is not used - and other 
entries may appear on the same line 
of the coding sheet. An illustration 
of the structure of each of the four 
divisions is shown in Figure 1. 


DIVISION NAME 

SECTIONS 

PARAGRAPHS 

ENTRIES 

Identification 

No 

Yes 

Yes 

Environment 

Yes 

Yes 

Yes 

Data 

Yes 

No 

Yes 

Procedure 

Optional 

Yes 

Yes 


Figure 1. 
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2.2 ELEMENTS 


We have previously defined an 
entry as the smallest complete unit 
of a COBOL program. Entries are 
made up of one or more elements and 
end with a period. The COBOL lan- 


guage consists of six types of ele- 
ments; some or all of which may be 
used in forming an entry. The ele- 
ments are: 


Programmer- supplied names 

Reserved words 

Symbols 

Literals 

Level numbers 

Pictures 


Programmer- supplied Names 

As their name suggests, program- 
mer- supplied names are created by 
the programmer in order to identify 
data, work areas, procedures, etc. 
They are, in general, similar in 


function to the symbolic names which 
we use in assembly language program- 
ming. For example, in the statement 
shown below, FLDA, FLDB, FLDC 
and FLDD are programmer- supplied 
names and serve to identify the data 
to be processed. 


ADD FLDA TO FLDB, SUBTRACT FLDC FROM FLDD 


As another example, the state- 
ment givenbelow is the COBOL equiv- 
alent of a branch. 1 PRINT- TOTAL' is 


the name of the paragraph in the Pro- 
cedure division to which control should 
flow. 


GO TO PRINT- TOTAL 
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PRINT- TOTAL has been created 
by the programmer and assigned to a 
set of procedures elsewhere in the 
Procedure division. The rules for 
forming programmer- supplied names 
and their use are much more flexible 
than their equivalents in assembly 
language programming. However, as 
with all rules, they must be followed. 
These rules are: 

a. A name may not exceed 30 charac- 
ters in length 

b. It cannot have the same spelling 
as a reserved word 

c. It can consist of letters, digits, 


and hyphens 

d. It cannot begin or end with a 
hyphen 

e. No spaces (blanks) may appear 
within the name 

f. Names assigned to procedures 
(instructions) may consist en- 
tirely of digits 

g. Names assigned to data items or 
conditions must contain at least 
one letter. 

Some examples of valid names are 

shown below. 


MASTER-FILE 

ACCTNO 

12345 (Procedure division only) 
ABC 123 

END- OF- J O B -ROU TI NE 


Examples of names which violate 
the rules are given below. 


ACCOUNTS-RECEIVABLE-MASTER-FILE (More than 30 characters) 
DETAIL (same spelling as a reserved word) 

-AMOUNT (begins with a hyphen) 

MINUS- (ends with a hyphen) 

END OF JOB ROUTINE (contains blanks) 
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Reserved Words 

Programmer- supplied names have 
meaning primarily to the program- 
mer who created them. The compiler 
simply uses them as tags to identify 
data, work areas, etc. In contrast, 
reserved words have a specific mean- 
ing to the compiler and must be used 
in accordance with the COBOL rules. 
There are approximately 250 English 
words and abreviations which make 
up the basic vocabulary of COBOL. 
The meaning of these words cannot be 
changed by the programmer nor can 
he add or substitute his own words 
for those on the reserved list. Also, 


the words must be used in their pro- 
per context and must not be altered 
or mispelled by the programmer. 

Among other things, reserved 
words specify actions to be per- 
formed (SUBTRACT, GOTO, MOVE), 
identify parts of programs (DIVISION, 
SECTION, ENVIRONMENT), or speci- 
fy conditions (GREATER THAN , NEG- 
ATIVE). Let 1 s look at an entry which 
contains reserved words. In the entry 
shown below, the underlined words 
are reserved words; all other ele- 
ments are programmer- supplied 
names. 


ADD WAGES TO EMPLOYEE- TOTAL, GO TO COMPUTE-NET 


The complete list of reserved 
words for S/360 COBOL is shown in 
Figure 2. Unfortunately, you may be 
accustomed to using some of these 
words as symbolic names in your as- 
sembly language programs (e. g. DE- 
TAIL, END, INPUT). The rules for 
programmer- supplied names, if you 
will remember, state that the name 
may not have the same spelling as a 
reserved word. Consequently, as we 
begin to write programs in COBOL, 
you will probably find it necessary to 
refer to Figure 2 when creating a pro- 
grammer-supplied name to ensure 
that the name does not duplicate a 
word on the list. This does not mean, 
however, that we cannot change the 
reserved word in some way and thus 
be able to use it as a name. For ex- 
ample, in the entry containing re- 
served words shown previously, we 
find the programmer- supplied name 
'COMPUTE-NET'. Now, although 
'COMPUTE' by itself is a reserved 
word, by adding '-NET' to the end we 
have changed the word enough to sat- 


isfy the rule that a name may not have 
the same spelling as a reserved word. 
Actually, the rule would still have been 
satisfied if we had simply deleted or 
added a letter (COMPUT or COM- 
PUTEX) but the result would not have 
been as meaningful as COMPUTE- 
NET. Note also that hyphenation of 
programmer- supplied names is not 
mandatory; it simply makes them 
more readable, e. g. COMPUTENET 
as opposed to COMPUTE-NET. 

Our discussion of reserved words 
seems to have concerned itself most- 
ly with prog rammer- supplied names. 
It is important that the difference be- 
tween them be clearly understood. 
Names are created by you and as- 
signed as needed. A name may be an 
English word but it cannot be a re- 
served word. Reserved words are 
selected by the programmer from a 
standard list which the programmer 
cannot alter or change in any way. 
These words are key-words which 
have specific meaning to the com- 
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piler and as such, must be used 
correctly and in their proper context. 
Where both singular and plural forms 
of a word are shown, they are pro- 
vided only for clarity and may be used 
interchangeably. 

One more thing about the reserved 
words which I'm sure you will find 


interesting. The list contains a group 
of words which are known as 'fig- 
urative constants'. These are 'built- 
in' constants which the programmer 
has access to simply by using the 
appropriate word. These figurative 
constants and the values assigned to 
them are given below. 


ZERO 

ZEROS 

ZEROES 

represents one or more zeros 

SPACE 

SPACES 

represents one or more spaces (blanks) 

HIGH-VALUE 
HIGH- VALUES 

represents one or more appearances of the character 
with the highest value in the computer's collating 
sequence 

LOW- VALUE 
LOW- VALUES 

represents one or more appearances of the character 
with the lowest value in the computer's collating 
sequence 

ALL 'character' 

represents one or more appearances of the EBCDIC 
character enclosed in the quotation marks. The 
character may not be a quotation mark itself. 

QUOTE 

QUOTES 

represents the single quotation mark character 


As an example of their use, let's 
assume that we have an eight byte 
accumulator which we wish to clear 
to zeros. In the Procedure division 
the statement MOVE ZEROS TO AC- 
CUMULATOR would cause the com- 
piler to generate an instruction which 
would move 8 zeros to ACCUMU- 
LATOR. The eight zeros need not be 
defined by the programmer as a con- 
stant elsewhere in the program since 
the compiler will automatically pro- 
duce a constant in the objectprogram 
with the correctnumber of zeros. As 
a further example, if at some other 
point in the program we wished to 
clear a one byte area named WORK 


to zeros, our statement would be 
MOVE ZEROS TO WORK. In this 
case one zero would be moved. In 
other words, the length of a figura- 
tive constant is not fixed but depends 
on the context in which it is used. One 
thing about figurative constants be- 
fore we go on to the next element. In 
many situations in a COBOL program 
the class of an item is important. 
That is, whether the item is numeric 
or non-numeric. With the exception 
of ZERO, all figurative constants are 
non- numeric. ZERO is a special case 
and can be used as both a numeric and 
non-numeric item. 
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LIST OF COBOL WORDS 


ACCEPT 

ACCESS 

ACTUAL 

ADD 

ADVANCING 

AFTER 

ALL 

ALPHABETIC 

ALTER 

ALTERNATE 

AND 

APPLY 

ARE 

AREA(S) 

ASCENDING 

ASSIGN 

AT 

AUTHOR 

BEFORE 

BEGINNING 

BLANK 

BLOCK 

BY 

CALL 

CF 

CH 

CHANGED 

CHARACTERS 

CHECKING 

CLOCK- UNITS 

CLOSE 

COBOL 

CODE 

COLUMN 

COMMA 

COMPUTATIONAL 
COMPUTATIONAL- 1 
COMPUTATIONAL- 2 
COMPUTATIONAL- 3 
COMPUTE 
CONFIGURATION 
CONSOLE 
CONTAINS 
CONTROL(S) 

COPY 

CORRESPONDING 

CREATING 

CYCLES 


DATA 

DATE-COMPILED 
DATE- WRITTEN 
DE 

DECIMAL- POINT 

DECLARATIVES 

DEPENDING 

DESCENDING 

DETAIL 

DIRECT 

DIRECT-ACCESS 

DISPLAY 

DISPLAY-ST 

DIVIDE 

DIVISION 

ELSE 

END 

ENDING 

ENTER 

ENTRY 

ENVIRONMENT 

EQUAL 

ERROR 

EVERY 

EXAMINE 

EXHIBIT 

EXIT 

FD 

FILE(S) 

FILE-CONTROL 

FILE-LIMIT 

FILLER 

FINAL 

FIRST 

FOOTING 

FOR 

FORM-OVERFLOW 

FROM 

GENERATE 

GIVING 

GO 

GREATER 

GROUP 

HEADING 
HIGH- VALUE (S) 
HOLD 


Figure 2. 


IBM-360 

IDENTIFICATION 

IF 

IN 

INCLUDE 

INDEXED 

INDICATE 

INITIATE 

INPUT 

INPUT-OUTPUT 

INSTALLATION 

INTO 

INVALID 

1-0 

I- O- CONTROL 
IS 

JUSTIFIED 

KEY 

LABEL(S) 

LAST 

LEADING 

LESS 

LINE(S) 

LINE-COUNTER 

LINKAGE 

LOCK 

LOW- VALUE (S) 
MODE 

MORE- LABELS 

MOVE 

MULTIPLY 

NAMED 

NEGATIVE 

NEXT 

NO 

NOT 

NOTE 

NUMERIC 

OBJECT-COMPUTER 

OCCURS 

OF 

OH 

OMITTED 

ON 
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OPEN 

OR 

ORGANIZATION 

OTHERWISE 

OUTPUT 

OY 

OVERFLOW 

PAGE 

PAGE-COUNTER 

PERFORM 

PF 

PH 

PICTURE 

PLUS 

POSITIVE 

PRINT-SWITCH 

PROCEDURE 

PROCEED 

PROCESS 

PROCESSING 

PROGRAM- ID 

PROTECTION 

QUOTE(S) 

RANDOM 

RD 

READ 

READY 

RECORD(S) 

RECORDING 

REDEFINES 

REEL 

RELATIVE 

RELEASE 

REMARKS 

REPLACING 


REPORT (S) 

REPORTING 

RERUN 

RESERVE 

RESET 

RESTRICTED 

RETURN 

REVERSED 

REWIND 

REWRITE 

RF 

RH 

RIGHT 

ROUNDED 

RUN 

SA 

SAME 

SD 

SEARCH 

SECTION 

SECURITY 

SELECT 

SENTENCE 

SEQUENTIAL 

SIZE 

SORT 

SOURCE 

SOURCE-COMPUTER 

SPACE(S) 

SPECIAL-NAMES 

STANDARD 

STOP 

SUBTRACT 

SUM 

SYMBOLIC 

SYSIN 

SYSOUT 


Figure 2 . (Continued ) 


SYSPUNCH 

TALLY 

TALLYING 

TERMINATE 

THAN 

THEN 

THRU 

TIMES 

TO 

TRACE 

TRACK-AREA 

TRACKS 

TRANSFORM 

TRY 

TYPE 

UNIT(S) 

UNIT -RECORD 

UNTIL 

UPON 

USAGE 

USE 

USING 

UTILITY 

VALUE 

VARYING 

WHEN 

WITH 

WORKING-STORAGE 

WRITE 

WRITE-ONLY 

ZERO (S) 

ZEROES 


Lesson C2 


Page 8. 



Symbols 


Symbols are special characters 
( $ , + = ) that are used for punctua- 
tion, arithmetic or to specify rela- 
tionships. 

Literals 

A literal is a constant which is not 
identified by a programmer- supplied 
name but rather defines its own value. 
Literals are classified as either non- 
numeric or numeric. 

Non-numeric Literals 

A non- numeric literal must be en- 


closed by single quotation marks but 
the quotation marks are not con- 
sidered part of the literal. The lit- 
eral may contain any combination of 
characters and have a maximum 
length of 120 characters. Since the 
single quotation mark is used to de- 
fine the beginning and end of the 
literal, no literal may contain a 
quotation mark within the body of the 
literal. Each character in the literal, 
including any spaces, occupies one 
byte of storage. Some examples of 
non-numeric literals are - 


'PAGE NUMBER' 

'JANUARY 31, 1967' 

'CARDS OUT OF SEQUENCE' 


An example of a Procedure divi- 
sion entry containing a non-numeric 
literal is illustrated below. Since a 
literal is really a constant, any- 


thing, including reserved words, may 
appear between the quotation marks 
with the exception, as noted previous- 
ly, of the quotation mark itself. 


MOVE ' SEPT. 3, 1967 ' TO DATE 


Numeric Literals 

Numeric literals may not exceed 
18 digits in length. The literal may 
consist of the digits 0 - 9»the plus or 
minus sign, and the decimal point. It 
cannot, however, have more than one 
decimal point or sign character nor 
are any spaces permitted within the 
body of the literal. If a sign is speci- 
fied it must be the leftmost character 
of the literal. Unsigned literals are 


considered positive. A decimal point 
must not appear as the rightmost 
character of a literal otherwise it 
would be mistaken for the period 
which marks the end of an entry. When 
no decimal point appears in the lit- 
eral, it is considered a whole num- 
ber. Some examples of valid numeric 
literals are given below. Note that nu- 
meric literals are not enclosed in quo- 
tation marks. 
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+385726 
674469 
-56. 873 
. 08333 


Listed below are some examples 
of invalid numeric literals. 


'872' 

non- numeric literal format 

693+ 

sign not leftmost character 

-18- 

more than one sign character 

428. 

ends in a decimal point 

8A4 

contains an alphabetic character 

+9. 80 

contains a space 

. 08. 33 

more than one decimal point 


Some typical uses of numeric lit- 
erals are illustrated in the following 
Procedure division entries. 


ADD +1 TO COUNTER 

MULTIPLY HOURLY-RATE BY 1. 5 GIVING OVERTIME-RATE 


To underline 
tween numeric 


the difference be- 
and non-numeric 


literals, let's look at two more Pro- 
cedure division entries. 
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MOVE +1 TO COUNT 

MOVE ' + 1 ’ TO OUTPUT-AREA 


The first entry uses the numeric 
literal format. The compiler will 
generate a one byte constant contain- 
ing the digit 1 and the standard zone 
bit configuration for a positive num- 
ber. The second entry specifies the 
non-numeric literal format. In this 
case, a two byte constant will be 
generated. The first byte will con- 
tain the EBCDIC coding for the plus 
sign character and the second byte 
will contain the EBCDIC coding for 
the digit 1. 


Level Numbers 

Level numbers are used in the 
Data division to show the relation- 
ship between the various items which 
make up a record and also to identify 
entries which establish constants or 
work areas. The level numbers which 
may be used are 01 through 49; 77; and 
88 . 

The level numbers 01 through 49 


are used to describe a data record 
with level number 01 always assigned 
to the record as a whole, and level 
numbers 02 through 49 assigned to 
the items which make up the record. 
Level number 77 can appear only in 
the Working-Storage Section and de- 
notes independent data items which 
are not records nor parts of records, 
e.g. constants and work areas. Level 
number 88 is used to assign a name 
to a value which a data item may 
contain. If an entry contains a level 
number, the level number must al- 
ways be the first element of the 
entry. The level number is always 
followed by a programmer- supplied 
name or the reserved word FILLER,, 
When defining a record, the pro- 
grammer allocates level numbers so 
that they will show the level of each 
data item making up the record in 
relation to the others. Let's look at 
an example of how a programmer 
might define a record in a master 
sales-to-date file. 


01 

MASTER-SALES 

02 

ACCTNO 

03 

PREFIX 

03 

SUFFIX 

02 

NAME 

03 

LAST -NAME 

03 

FIRST -NAME 

03 

INITIAL 

02 

ADDRESS 

03 

STREET 

03 

CITY 

03 

STATE 

02 

SALES-TO-DATE 
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The record as a whole is defined 
by the level number 01 and the pro- 
grammer-supplied name MASTER- 
SALES. The record contains four 
major data items or fields, ACCTNO, 
NAME, ADDRESS and SALES- TO- 
DATE which have each been assigned 
level number 02. ACCTNO, NAME 
and ADDRESS have been further sub- 
divided with the level number 03 being 
as signed to each of the sub-fields. In- 
cidently, note that LAST- NAME and 
FIRST-NAME are the programmer- 
supplied names for the sub-divisions 
of NAME. LAST and FIRST alone 
could not have been used since they 
are reserved words. 

We shall study the use of level 
numbers in greater detail when we 
begin to examine the format and en- 
tries of the Data division. For the 
moment, we can say that level num- 
bers are used when defining records, 
areas and constants. Level numbers 
are always the first element in an 
entry containing them and must be 
followed by a programmer- supplied 
name or the reserved word FILLER. 
The valid level numbers are 01 
through 49; 77 and 88. 

Pictures 


vision when it is necessary to des- 
cribe the characteristics of data, 
areas or constants. The character- 
istics which can be specified by a 
picture are: 

a. Length of an item 

b. Class (numeric, alphabetic, 
alphanumeri c) 

c. Location of an assumed decimal 
point 

d. Presence of a sign 

e. Editing pattern 

A picture consists of one or more 
of the characters listed below. The 
maximum length of a picture is 30 
characters. Each of the characters 
shown below have a special meaning 
to the compiler when used in a pic- 
ture. A picture may only appear in 
an entry which begins with a level 
number and the picture itself must be 
preceded by the reserved word PIC- 
TURE or the words PICTURE IS. The 
characters used in forming a picture 
are: 


Pictures are used in the Data di- 


A B CR DB EKPSVX Z 0 9 + - , . $ * ( ) 


In addition, a picture may con- 
tain an unsigned numeric literal which 
must be enclosed in parentheses and 
be a whole number. The meaning and 
usage of the picture symbols will be 


discussed in our study of the Data 
division. Meanwhile, let's look at 
some examples of entries which con- 
tain a picture. 
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02 

NAME 

PICTURE A(30). 

02 

FILLER 

PICTURE XXX. 

01 

OUTPUT-RECORD 

PICTURE IS X(80). 

04 

ACCTNO 

PICTURE IS 999. 

03 

AMOUNT 

PICTURE S999V99. 

02 

TOTAL 

PICTURE S9(5)V9(3). 


Remember, a picture may only 
appear in an entry which begins with 
a level number, and level numbers 
must be immediately followed by a 
programmer- supplied name or the 
reserved word FILLER. From this 
rule, we can determine that, in the 
above entries, NAME, OUTPUT- 
RECORD, ACCTNO, AMOUNT and 
TOTAL are programmer- supplied 
names. Since we know that the picture 
of an item must be preceded by the 
reserved word(s) PICTURE or PIC- 
TURE IS, we can always locate the 
picture of an item simply by looking 
for thes e reserved words in the entry. 
The third entry above contains the 
statement - PICTURE IS X (80). Ear- 
lier we had learned that the maximum 
length of a picture is 30 characters. 
X (80) is a valid picture since it ac- 


tually contains only 5 characters; 
letter X, left parenthesis, digit 8, 
digit 0, and right parenthesis. The 
period, as we have already learned, 
marks the end of an entry and is not 
part of the picture. 

Our purpose in this lesson has 
been to acquaint you with the structure 
of a COBOL program, starting from 
its largest grouping - the division - 
and proceeding to its smallest com- 
plete unit - the entry. In addition, you 
have learned the six types of elements 
which are used in composing entries. 
In subsequent lessons, we shall en- 
large upon the material covered in 
this lesson and study examples of the 
application of the rules we have learn- 
ed. 
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3.1 CHARACTER SET, PUNCTUATION AND NOTATION 


Every programming language has 
a set of symbols which are used in 
constructing program statements to- 
gether with rules for their punctuation 
and format. In this lesson, we shall 
learn the COBOL character set, the 
rules for punctuating entries, and the 
standard form of notation used in il- 


lustrating model COBOL entries and 
elements . 

CHARACTER SET 

The COBOL character set consists 
of the letters A to Z, digits 0 to 9, 
and the following special characters: 


+ 

Plus sign 

- 

Minus sign or hyphen 

Blank or space 

* 

Check protection or asterisk 

/ 

Slash 

= 

Equal sign 

< 

Greater than 

> 

Less than 

$ i 

Dollar sign 

9 

Comma 

• 

Period or decimal point 

1 

Quotation mark 

( 

Left parenthesis 

) 

Right parenthesis 

9 

Semicolon 


The letters A to Z, the digits 0 
through 9, and the hyphen are used in 
the formation of programmer- sup- 
plied names. The plus or minus signR 
the decimal point and the digits 0-9 
are used in the formation of numeric 
literals. Non-numeric literals may 
consist of any characters in the set 
with the exception of the quotation 


mark. Some of the special charac- 
ters, or symbols as they are called 
in COBOL, have a special meaning to 
the compiler when they are used as 
punctuation, in arithmetic express- 
ions or in tests involving relation- 
ship or conditions. These symbols 
are shown below. 
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Symbols used in punctuation 


period 


comma 


semicolon 


used to indicate end of an entry 

used to separate a series of operands or clauses 
used to separate a series of clauses 


quotation mark used to indicate beginning and end of a non- 
numeric literal 


() parentheses 


used to enclose subscripts 



Symbols used in tests involving relationship or conditi 


> greater than 
^ less than 
() parentheses 


is greater than 
is less than 

used to specify the sequence in which the 
conditions are to be tested 
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As you have probably already no- 
ticed, some of the symbols (equal 
sign, parenthesis) appear in more 
than one group. Also, we have seen 
that certain of the symbols are also 
used in the formation of programmer- 
supplied names (minus signor hyphen) 
and numeric literals and pictures (pe- 
riod or decimal point, minus and plus 
signs, asterisks, etc. ). How does the 
compiler know what is meant when it 
encounters these symbols? In gen- 
eral, there are two ways in which the 
compiler determines the meaning of 
these symbols and these are: 

a. by the context in which they are 
used, and 

b. that they normally stand alone in 
the coding. 


Let's see how this works. In the 
entry shown below, the compiler de- 
termines that the period is actually a 
period, by a process of elimination. 
First, it knows that it does not rep- 
resent a decimal point in a numeric 
literal because (a) the characters 
preceding the period are not valid 
characters in a numeric literal, and 
(b) a numeric literal may not end in a 
decimal point for this very reason. 
Secondly, it does not represent a dec- 
imal point or period in a non-numeric 
literal because the entry does not con- 
tain a quotation mark signaling the 
beginning of a non-numeric literal. 
Lastly, it cannot be a character in a 
picture because the characters im- 
mediately preceding theperiod are not 
valid picture characters and even if 
they were, they are not preceded by 
PICTURE or PICTURE IS. 


01 INVENTORY-MASTER- FILE. 1 


When the compiler scans the cards 
which are punched from our coding, 
each time it encounters a blank or 
blanks, it signifies the end of the pre- 
ceding element. This is why program- 
mer-supplied names, reserved words 
and numeric literals may not contain 
blanks. Non-numeric literals are a 
special case since their beginning 
and end is signaled by a quotation 
mark. In other words, an element is 
bounded on both sides by one or more 
blanks. Let's see how the compiler 
uses this to differentiate between a 
sign and an arithmetic symbol. The 


plus sign appear s in both entries given 
below. In the first entry, the plus 
sign is part of an element - a numeric 
literal - whose boundaries are marked 
by preceding and following blanks. 
Because it does not stand alone but 
rather appears as part of an element, 
the compiler understands it to mean a 
sign rather than an arithmetic opera- 
tion. In the second entry, however, 
the plus sign symbol stands alone as 
an element preceded and followed by a 
blank. This tells the compiler that 
addition is intended and not a sign in- 
dication. 
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SUBTRACT +1 FROM LOOP-COUNT. 
COMPUTE TOTAL = COUNT + 1. 


The minus sign or hyphen is an- 
other case in point. In the entry shown 
below, the hyphen in the programmer- 
supplied name DISCOUNT- AMOUNT 
has no special meaning to the com- 
piler. It simply makes the name more 
readable. The minus sign, on the other 


hand, stands alone and specifies sub- 
traction. The compiler understands 
this entry to mean subtract DIS- 
COUNT-AMOUNT from PRICE and 
not subtract AMOUNT from DIS- 
COUNT and then subtract the differ- 
ence from PRICE. 


COMPUTE NET = PRICE - DISCOUNT- AMOUNT. 


Most of the symbols which can be 
used in arithmetic expressions or 
condition tests are provided as a means 
of shorthand for the programmer. For 


example, both of the entries shown 
below will make the same calculations 
and give us the same result. 


SUBTRACT DEDUCTIONS FROM REGULAR- PAY GIVING NET-PAY. 
COMPUTE NET- PAY = REGULAR- PAY - DEDUCTIONS. 
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Similarly, both of the following 
statements will compare employee 


numbers and branch to NEWMAN if 
the specified condition is satisfied. 


IF EMPNO IS LESS THAN NEW- EMPNO, GO TO NEWMAN. 
IF EMPNO> NEW- EMPNO, GO TO NEWMAN. 


PUNCTUATION 

Punctuation, inmost cases, is non- 
critical and can be used by the pro- 
grammer to make his program more 
readable. As we have seen, commas 
may be used to separate operands or 
clauses. A series of clauses may be 
separated by semicolons or commas. 
However, every entry must end in a 
period. 


Earlier we had learned that the 
beginning and end of an element is 
defined by preceding and following 
blanks, or spaces. Although punc- 
tuation symbols are also elements, 
they are an exception to this rule. 
The rules for using these symbols are 
as follows: 


Symbol 

period, comma, semicolon 

Rule 

must immediately follow an element and then be followed by a space (s) 

Wrong Way 

ADD A , B GIVING D ; GO TO DONE . 

Right Way 

ADD A, B GIVING D; GO TO DONE. 

Symbol 

Left parenthesis - ( and right parenthesis - ) 

Rules 

Left parenthesis must not be followed by a space 

Right parenthesis must not be preceded by a space 

Wrong Way 

PICTURE IS X ( 80 ) 

Right Way 

PICTURE IS X (80) 


Quotation marks are used to define 
the boundaries of a non-numeric lit- 
eral. The leftmost quotation mark 
must be preceded by one or more 
spaces and the rightmost quotation 
mark must be followed by one or more 
spaces. Incidentally, when the period 
and comma - and also the plus and 


minus signs - are used for editing 
purposes, they follow the rules for 
editing and not punctuation. The rules 
for punctuation should not give you 
any trouble since you have seen them 
applied whenever you read a book or 1 
newspaper. 
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NOTATION 


When we speak of notation, we are 
referring to the standard system of 
notation which is used to describe the 
formats of clauses and entries. In 
most of the clauses or entries, some 
of the elements are fixed and the 
others are supplied by the program- 
mer. The standard format provides 
the programmer with a skelton of 
nouns, verbs or adjectives which the 
programmer fleshes out by inserting 
other nouns or adjectives. In addi- 
tion, the notation used in presenting 
a standard entry provides the means 
for the programmer to identify those 
parts of a clause or entry which are 
mandatory, optional, or must be 
supplied by the programmer. The 
following rules apply when analyzing 
the format of a clause or entry. 

1. Words Printed in Upper Case. All 
words printed in upper case (cap- 
ital letters) are reserved words. 
If the words are underlined in 
their format their use is manda- 
tory unless the portion of the for- 
mat which contains them is itself 
optional. Reserved words which 
are not underlined are provided 
for clarity only and may be omitted 
by the programmer. 

2. Words Printed in Lower Case, 
Words printed in lower case rep- 
resent elements of the clause or 
entry which must be supplied by 


the programmer. 

3. Material Enclosed in Braces( j j ). 
Where material is enclosed in 
braces, itmeansthat one, and on- 
ly one, of the items must be selec- 
ted by the programmer. 

4. Material Enclosed in Brackets (C3). 
Material enclosed in square brac- 
kets may be used or omitted de- 
pending on the needs of the program 
If it is used, however, all ma- 
terial within the brackets must be 
used. 

5. Punctuation. Any punctuation shown 
in a format must be used with the 
exception of the braces and brac- 
ket symbols. Additional punctua- 
tion may be included according to 
the rules for punctuation. 

Let' s look at an example illustra- 
ting the first rule which states that 
words printed in capitals are re- 
served words and must be used if 
underlined. In the example of the 
BLANK clause shown below, all ele- 
ments are reserved words. BLANK 
and ZERO are underlined which means 
that when this clause is used, these 
two words must appear. WHEN, on 
the other hand, is not underlined and 
may be used at the programmer's 
option. In other words, both BLANK 
ZERO and BLANK WHEN ZERO are 
legitimate uses of the BLANK clause. 


BLANK WHEN ZERO 
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The second rule states that words 
printed in lower case represent ele- 
ments which must be supplied by the 
programmer. The WRITE statement 
shown below consists of two elements; 
one in upper case and underlined and 
the other in lower case. When this 
statement is used, WRITE must be 
included and record-name must be 
replaced by the symbolic name which 
you have given to your record. Let's 
assume that we have as signed the name 


INVENTORY- RECORD to our record. 
The correct statement to write the 
contents of this record would be - 
WRITE INVENTORY- RECORD and not 
WRITE RECORD-NAME. Remember, 
words printed in lower case represent 
elements of the statement which must 
be supplied by you. WRITE RECORD- 
NAME would be valid only if you had 
assigned the name 'RECORD-NAME' 
to the record. 


WRITE record-name 


Our third rule says that material 
enclosed in braces represents fixed 
choices from which the programmer 
selects what he needs. Only one op- 
tion, however, may be selected. In 
our first example, the MOVE state- 
ment is illustrated. The reserved 
words MOVE and TO are underlined 
and must be included in the finished 
statement. The material within braces 
is in lower case and must be supplied 
by the programmer. This element of 
the statement indicates what is to be 
moved and the two options which are 
allowed are ' data-name- 1 ' and 'lit- 
eral'. Data-name-1 would be a sym- 
bolic name which we have assigned to 


an area whose contents we wish to 
move somewhere else. 'Literal' would, 
on the other hand, be a numeric or 
non- numeric literal which we wished 
moved. 'Data- name- 2' in this format 
represents the symbolic name which 
we have assigned to the receiving 
field. Let's assume that we wished 
to move the contents of an area named 
TOTAL to an area named ACCUMU- 
LATOR. Our move statement would 
then be -MOVE TOTAL TO ACCUMU- 
LATOR. If, in contrast, we wished to 
move a literal (non- numeric) , our 
finished statement would be some- 
thing like this - MOVE 'END OF JOB' 
TO OUTPUT- AREA. 



( data-name- 1 ) 


MOVE 

| literal ( 

TO data-name- 2 
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In the preceding example, the ma- 
terial within the braces was printed 
in lower case which meant thatthese 
elements had to be supplied by the 
programmer. As we go along, we 
shall see formats in which the mat- 
terial enclosed in the braces consists 
of reserved words only or a mixture 
of reserved words and programmer- 
supplied information. An example of 
this mixture is shown below. The 
braces provide us with a choice of the 


reserved word 'NO' or a numeric 
value represented by 'integer 1 . As- 
suming that we did not wish to re- 
serve any alternate areas our state- 
ment would be RESERVE NO ALTER- 
NATE AREAS. Note that the inclusion 
of the words ALTERNATE AREAS is 
optional since they are not underlined 
in their model format. If we wished, 
to reserve three alternate areas our 
statement would be RESERVE 3 AL- 
TERNATE AREAS, or RESERVE 3. 



( NO ) 


RESERVE 

) integer i 

ALTERNATE AREAS 


Our fourth rule concerns the indi- 
cation of optional elements, clauses 
and entries. In its simple form, it 
states that the use of any material 
enclosed in square brackets is op- 
tional. If used, however, all of the 
material must be used. This is not 
strictly the case since we shall see 


examples of brackets within brackets 
as we progress. It is, however, a 
good rule of thumb. In the ACCESS 
clause shown below we can see that 
the use of the entire clause is op- 
tional. If it is used, the rules con- 
cerning underlined reserved words 
and material in braces still apply. 


( SEQUENTIAL 
ACCESS IS f RANDOM 


In contrast, the entire BLOCK 
CONTAINS clause is optional and, in 


addition, some of the elements which 
make up the clause are also optional. 
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BLOCK CONTAINS integer 


CHARACTERS 

RECORDS 


In review, the notation used in 
presenting a model format allows you 
to locate which elements are pro- 


grammer-supplied, which are man 
datory and which are optional. 


3.2 THE CODING SHEET 


As with most coding sheets, pro- 
vision is made for identification of 
the program, the programmer and 
other descriptive information. On the 
COBOL coding sheet shown in Fig- 
ure 1, provision is made for these 
entries at the top of the sheet. With 
the exception of the identification field, 
none of the information written in 
these boxes is punched into the source 
deck. The inclusion of these entries 
is completely optional and depends on 
the procedures adopted at the installa- 
tion at which you are employed. 

The remainder of the sheet is used 
for writing program statements which 
are punched into cards, one line per 
card. Each line of the coding sheet 
contains 72 columns which corres- 
pond to the columns in the card in 
which the statement is punched. The 
coding sheet contains four fields which 
are the sequence field, the continua- 
tion indicator field, Margin A, and 
Margin B. 

The sequence number field takes 
up columns 1 through 6 of the coding 
sheet. This field allows the program- 


mer to assign page and serial num- 
bers to his statements. These num- 
bers will be punched into each card 
in the source deck and when the pro- 
gram is compiled, the compiler will 
check the sequence and indicate any 
errors. The use of sequence numbers 
is optional but it is general practice 
to use them so that if your source 
deck is dropped, it can be easily put 
back into its proper sequence. 

The rules for certain entries spec- 
ify that they must begin in Margin A. 
These entries are: 

a. header entries for divisions, sec- 
tions and paragraphs 

b. Level indicators (e. g. FD in the 
Data division). Any elements or 
clauses within this entry must not 
begin before Margin B. 

In addition to the above, level 
number s may begin at Margin A; how- 
ever the rest of the entry must not 
begin before Margin B. Now the rules 
for these entries state that they must 
begin atMargin A; they do not say that 
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they must be contained within Margin 
A. This means that the entry may, 
and will, extend into Margin B. The 
coding sheet indicates that Margin A 
begins at column 8. Actually , columns 
8, 9, 10 and 11 are all considered as 
MarginA and it is permissible for an 
entry required to begin in Margin A, 
to begin in any of these columns. How- 
ever, itis standard procedure for the 
programmer to write these entries 
beginning at column 8. Division and 
section header entries begin at Mar- 
gin A, end in a period, and nothing 
else may appear on the same line. 
Paragraph names also begin at Mar- 
gin A and end in a period but other 
entries may appear on the same line 
beginning at Margin B. 

Most of the statements in the pro- 
gram are written in Margin B which 
covers columns 12 through 72. An 
entry can begin anywhere within these 
limits and can also be continued on 
the following line or lines. Each ele- 
ment in the entry must be separated 
from each other by one or more blank 
spaces, or columns. The compiler 
considers two or more spaces to be 
the same as one space with the ex- 
ception of spaces appearing in a non- 
numeric literal. In general, an ele- 
ment (not an entry) must not be writ- 
ten so that part is written on one line 
and the remainder on the following 
line. If it appears that an element will 
not fit in the remaining spaces of the 
line, don't even bother to count - just 
write it on the following line. Remem- 
ber, the rule is that you must have at 
least one space between elements. The 
spaces lefton the preceding line after 
the last element and any spaces on the 
following line before the next element, 
will be considered as one space by the 
compiler. 

The reason for this rule against 
continuing an element on another line 
is that there is an 'assumed' space 
after column 7 2. That is, if an ele- 
ment ends at column 72, the compiler 
treats it as if it were followed by a 
space. Let's see how the application 
of this rule affects us. In Figure 2, 
the first example illustrates an at- 


tempt to continue an element (the 
word THIS) on another line. Applica- 
tion of the assumed space rule would 
cause this element to be considered 
as two elements, i. e. ' TH' and 'IS'. 
Suppose an entry ends in column 71 
and the period is in column 72. Where 
must we begin the next entry on the 
following line since a period must be 
followed by a space? Well, the re- 
quired space after the period is ob- 
tained from the assumed space after 
column 72. Consequently, we can be- 
gin our next entry right at Margin B 
as shown in example 2 of Figure 2. 
However, if our last element ends at 
column 72, the period must not be 
written on the next line at Margin B. 
Example 3, Figure 2, illustrates this 
coding error. Because of the assumed 
space after column 72, the compiler 
would treat this entry as 'LINEb. '. 
This would violate the rules of punc- 
tuation which state that a period must 
not be preceded by a space. Again, 
whenever it seems that you may run 
out of space at the end of a line, just 
goto the next line of the coding sheet 
and continue your entry. 

Non-numeric literals are an ex- 
ception to the as sumed space and con- 
tinuation of elements rules. Since the 
maximum length of a non-numeric 
literal is 120 characters and there 
are only 6 1 columns in Margin B, you 
will find many situations where it will 
be necessary to continue a non-nu- 
meric literal on the next line. When 
this is the case, the assumed space 
rule does not apply and elements may 
be divided and continued on the next 
line. If a non-numeric literal must 
be continued on a second line, a 
hyphen must be written in column 7 
(the continuation column) of the sec- 
cond line. In addition, the continued 
part of the literal must be preceded 
by a quotation mark. This means that 
a continued non-numeric literal will 
have at least three quotation marks 
in all, the beginning quotation mark, 
the continued quotation mark, and the 
ending quotation mark. The part of 
the literal which appears on the first 
line must be written right up to co- 
lumn 72 since any spaces left at the 
end of the line will be considered 
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part of the literal. If an element will 
not fit in the remaining spaces of the 
first line, that part which will fit 
must be written up to column 72. The 
remaining part of the element is writ- 
ten on the next line after the continued 
quotation mark. The correct method 
of continuing a non-numeric literal is 
shown in Figure 2, example 4. The 
first line is written up to column 72 
even though the word LITERAL does 
not completely fit. The literal is con- 
tinued on the second line and continu- 
ation is indicated by the hyphen in co- 
lumn 7 and the quotation mark. The 
remaining part of the word LITERAL 
is written immediately after the quo- 
tation mark in order to prevent spaces 
from being inserted between LIT and 
ERAL. Note that the assumed space 
rule does not apply to a continued non- 
numeric literal. In other words, an 
automatic space will not be created 
after LIT. Example 5 illustrates a 
case where the literal is not written 
up to column 72. This statement 
would cause 4 spaces to appear be- 
tween NON-NUMERIC and LITERAL 
in the assembled program. Example 
6, shows a situation where the pro- 
grammer forgot that the assumed 
space rule does not apply to a contin- 
ued non-numeric literal. This state- 
ment would cause NON- NUMERIC and 
LITERAL to be considered as one 
word, i. e. NON-NUMERIC LITERAL, 
without a separating space between 
them. To correct this situation, the 
programmer need only insert a space 
between the continued quotation mark 
and the word LITERAL. Let's sum- 
marize the rules for continuing non- 
numeric literals. 

a. The assumed space rule does not 
apply. 

b. Elements may be divided between 
two lines. 

c. All subsequent lines containing a 
continued non-numeric literal must 


have a hyphen in column 7 and be- 
gin with a continued quotation mark. 

d. All spaces found between the be- 
ginning and ending quotation marks 
are considered part of the literal. 

e. Only the last line of the continued 
literal may contain the ending quo- 
tation mark. 

f. The continued literal may begin 
anywhere in Margin B (columns 
12-72). It must, however, start 
with the continued quotation mark. 

Figure 3 illustrates the applica- 
tion of some of the rules we have 
learned about using the coding sheet. 
Line 01 contains a header entry for a 
division and in accordance with the 
rules, the name of the division is writ- 
ten in Margin A, followed by a space 
and then the reserved word DIVISION 
and a period. The section header en- 
try on line 02 follows the same rules. 
Both header entries must be the only 
entries on the line. Line 03 begins 
with the level indicator 'FD 1 . This 
element must be written in Margin A; 
the remaining elements of the entry 
mustbe written within the boundaries 
of Margin B. Lines 05 through 12 be- 
gin with level numbers which may be 
written in Margin A or Margin B. Any 
other elements of an entry beginning 
with a level number must, however, 
be within the limits of Margin B. No- 
tice that indentation is used for the 
entries appearing on lines 05 to 12. 
These entries are describing the for- 
mat of a record and indentation, while 
not mandatory, makes it easier to lo- 
cate the major fields and sub-fields 
of the record. Wherever it will make 
the program more under standable, 
most programmers use indentation. 
While any amount of indentation can 
be used, programmers usually in- 
dent in units of 4 columns which is 
why the column numbers on the coding 
sheet are given in units of four. 
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4.1 IDENTIFICATION DIVISION - FORMAT AND FUNCTION 


The Identification division consists paragraphs as shown below 

of a division header entry and seven 


Header entry 

IDENTIFICATION DIVISION. 

Paragraph 

PROGRAM-ID. 'program-name' 

Paragraph 


AUTHOR, entry . . 7 ] 

Paragraph 


« ’ ‘ ' -J 

INSTALLATION, entry . 

Paragraph 


= -I 

DATE- WRIT TEN. entry . . 7] 

Paragraph 


— . ~ -J 

DATE- COMPILED, entry .. 7| 

Paragraph 


s -J 

SECURITY, entry . . 7 \ 

Paragraph 


L» —J 

REMARKS, entry . . . | 


L=> -J 


The header entry is, of course, 
required and consists of the name of 
the division followed by the reserved 
word DIVISION and a period. It must 
precede any paragraphs in the coding 
and appear on a line by itself. The 
purpose of the Identification division 
is to specify the name of the pro- 
gram. In addition, optional paragraphs 
are provided which allow the pro- 
grammer to write extended comments 
concerning the program. 

Let' s look at the format of the di- 
vision. Each paragraph has a fixed 
name which, since they are reserved 
words, may not be altered nor changed 
in any way by the programmer. From 
our study of the notation used in 
COBOL formats, we can see that one 
paragraph is mandatory and the re- 
maining six are optional. 


The PROGRAM-ID paragraph must 
appear in every program and as with 
all paragraphs, the name is written 
at Margin A. 'program- name' is the 
name by which the program will be 
identified on a job control card when 
the object program is executed. Pro- 
gram name is a special kind of non- 
numeric literal called an 'external 
name' and must be enclosed in quota- 
tion marks. However, the length of 
the name is limited to eight charac- 
ters. The name must begin with a 
letter; the remaining seven charac- 
ters can be any combination of letters 
and digits. When you are given a pro- 
gram to write, the specifications may 
include a name to be used as the pro- 
gram name. If not, you may create 
any name that seems suitable. 

The use of the remaining six par- 
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agraphs is optional and depends on 
the procedure adopted at your instal- 
lation. Each of the paragraphs con- 
sists of a fixed paragraph name, 
which is written in Margin A, and fol- 
lowed by one or more entries which 
must be written within the boundaries 
of Margin B. Incidentally, the format 
of the six paragraphs include a form 
of notation which we have not yet dis- 
cussed -- the meaning of three dots in 
a format. When you see three dots in 
a format, it means the portion of the 
format immediately preceding them 
maybe repeated anynumber of times. 
If the dots follow a word, they apply 
only to that word. If they follow brac- 
kets or braces, they apply to all the 
material enclosed in the brackets or 
braces. In this particular case, they 
mean that as many entries as are re- 
quired may be written in the para- 
graph. 

Each entry, including the division 
header entry and the paragraph names , 
must end in a period. The only other 
required punctuation is the use of quo- 
tation marks to enclose the program 
name. The entries in the optional 
paragraphs may consist of any words - 
including reserved words - numbers 
or symbols. 

Let's look at some examples of 
coding the Identification division. Fig- 
ure 1, illustrates the minimum num- 
ber of entries which may appear in the 
Identification division. The division 
header entry identifies it as the Iden- 
tification division. The PROGRAM-ID 
paragraph which must appear in every 
program specifies the name of the pro- 
gram as 'RERUN 1 . As specified in the 
format of this paragraph, program 
name is enclosed in quotation marks 
and is followed by a period. 


Figure 2, illustrates a more ex- 
tended Identification division. The 
name of the program is 'GRADEXAM'. 
The name of the installation and the 
author of the program are specified 
as are the dates the program was 
written and compiled. The REMARKS 
paragraph provides additional infor- 
mation about the purpose and opera- 
tion of the program. Noticp that the 
order in which the AUTHOR and IN- 
STALLATION paragraphs are written 
is the reverse of the order given in 
the model format. The optional para- 
graphs may appear in any order in the 
Identification division. Also, the en- 
tries in the REMARKS paragraph be- 
gin on the following line. This is per- 
fectly legitimate and sometimes de- 
sirable since many installations have 
pre-punched header entry cards. Re- 
member, a paragraph header entry 
may have other entries on the same 
line. It is not mandatory that they do 
so, however. 


In review, the Identification divi- 
sion serves to identify the program. 
The division header entry and the 
PROGRAM- ID paragraph must appear 
in every program. Optional para- 
graphs, which may be written in any 
order, are provided so that the pro- 
grammer may include additional ex- 
planatory material about the program. 
Eachparagraph has a fixed paragraph 
name which cannot be altered. Also, 
additional paragraphs cannot be in- 
cluded by the programmer. When 
used, each optional paragraph con- 
tains at least one entry which must 
end in a period. The entries within a 
paragraph may consist of any combi- 
nation of words, numbers and sym- 
bols. 


4.2 ENVIRONMENT DIVISION - FORMAT AND FUNCTION 


The Environment division consists sections. Each section consists of 

of a division header entry and two two paragraphs as illustrated below - 
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A standard card form, IBM electro C61897, is available for punching source statements from this form. 
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Header entry 

ENVIRONMENT DIVISION. 


Section 

CONFIGURATION SECTION. 


Paragraph 

SOURCE-COMPUTER. IBM- 360 [model- number 

e 

Paragraph 

OBJECT-COMPUTER. IBM- 360 [model-number 

o 

Section 


INPUT-OUTPUT SECTION. 


Paragraph 

FILE CONTROL. SELECT- entry . . . 


Paragraph 


I-O-CONTROL. APPLY - entry . .TjJ 



The Environment division is used 
to specify the computers used to com- 
pile and execute the object program. 
If input or output files are used in the 
program, the Environment division 
is used to assign each file to an in- 
put/output device. In addition, when 
special input-output techniques and 
conditions are involved they are de- 
fined in this division. 

Of the two sections which make up 
the division, only the Configuration 
section is required. The Input-Output 
section as a whole is optional and with- 
in the section, the I-O-Control para- 
graph is optional. Let's look at the 
Configuration section first. 

The Configuration section header 
entry must follow immediately after 


the division header entry. Nothing 
else may appear on the same line. 
The section contains two paragraphs 
which have fixed names. The two 
paragraphs are used to specify the 
computer which will be used to com- 
pile the program (SOURCE-COMPU- 
TER), and the computer which will be 
used to execute the object program 
(OBJECT-COMPUTER). The para- 
graph names are written in Margin A 
and end with a period. The computer 
and model number entries are written 
in Margin B. The model number is 
optional and consists of a letter which 
indicates the main storage capacity of 
the computer followed by the compu- 
ter 1 s model number. The code letters 
used to designate core storage capa- 
cities are: 


C 

= 

8,192 bytes 

D 

- 

16, 384 

E 

= 

32, 768 

F 

= 

65, 536 

G 

= 

131, 072 

H 


262, 144 

I 

= 

524, 288 
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As an illustration, let's assume that 
we are to compile our program on a 
model 30 with 32, 768 bytes of main 


storage and execute it on a model 30 
with 65, 536 bytes. Our coding for the 
Configuration section would be - 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 

SOURCE- COMPUTER. IBM-360 E30. 

OBJECT-COMPUTER. IBM-360 F30. 


Throughout this course we shall as- 
sume that our source and object com- 
puters will be a model 30 with 32, 768 
bytes of storage, i. e. E30. 

The Input-Output section is in- 
cluded whenever the program uses in- 
put and/or output files. Since most 
programs read in data from an in- 
put file and produce an output file of 
processed data, this section will ap- 
pear in most programs even though 
its use is optional. The Input-Output 
section consists oh two paragraphs 
which are used to define the input/out- 
put devices used in the program, as- 
sign data files to these devices, and 
to specify certain input/output tech- 
niques. 

When the Input-Output section ap- 


pears in a program, the File-Con- 
trol paragraph must be included. This 
paragraph names the data-files and 
relates them to input/output devices. 
The paragraph contains one or more 
SELECT sentences, or entries, which 
are in turn, made up of several 
clauses. The SELECT sentence is 
used to assign a file to a device; a 
separate sentence being used for each 
file used by the program. The format 
of the SELECT entry (entry and sen- 
tence are used here interchangeably) 
which is shown below, is that used for 
files organized sequentially. That is, 
each record is read in the order in 
which it appears in the file. The SE- 
LECT sentence has several other 
clauses which refer to files organ- 
ized in a non- sequential manner. 


SELECT file-name 

ASSIGN TO 

1 external-file 

-name' 

( UTILITY ) 


[unit 1 


< DIRECT-ACCESS [ 

device- number 

Ijjnits] 


f UNIT- RECORD ) 
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Each entry in the File-Control 
paragraph must begin with the word 
SELECT and include the ASSIGN 
clause and one of the three types of 
devices enclosed in braces. The de- 
vice-number specification and the use 
of the word(s) UNIT or UNITS is op- 
tional. A SELECT entry mustbe writ- 
ten for each file referred to in the 
program. 

'file-name 1 mustbe supplied by the 
programmer and is the name by which 
the file is referred to in the Data and 
Procedure divisions. The 'external- 
file-name 1 must also be supplied by 
the programmer and i s the name which 
will appear in a job control card when 
the object program is executed. Both 
'file-name' and ' external- file-name' 
can be the same name. However, ' ex- 
ternal-file- name 1 must follow the 
rules for external name, that is, they 
must not exceed 8 characters, must 
begin with a letter and be enclosed in 
quotation marks. As an illustration, 


let's assume thatwe have a file which 
is called PARTS-MASTER in the Data 
and Procedure divisions and which is 
to be identified as 'PARTMAST' in the 
job control card. Our SELECT sen- 
tence would then begin: SELECT 
PARTS -MAS TER ASSIGN TO 'PART- 
MAST'. 

The device class to which the file 
is assigned must be specified in the 
SELECT entry. Device classes are 
UTILITY, DIRECT-ACCESS or UNIT- 
RECORD. The UTILITY class in- 
cludes those machines which can read 
and write data sequentially such as 
magnetic tape, disk, drum and data 
cell devices. DIRECT- ACCESS ma- 
chines are those which can read or 
write data in a random sequence - 
disk, drum, and data cell devices. 
The UNIT-RECORD class consists of 
printers and card read/punches. If our 
PARTS-MASTER file was to be read 
from a card reader, our SELECT 
sentence would be - 


SELECT PARTS-MASTER ASSIGN TO 'PARTMAST' UNIT-RECORD. 


If the file were to be read from a reel written as shown below, 

of magnetic tape, the entry would be 


SELECT PARTS-MASTER, ASSIGN TO 'PARTMAST' UTILITY. 
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The specification of a device-num- 
ber is optional but is usually included 
in the entry. In this case, the device 
numbers are specified by means of a 
job control card when the object pro- 
gramis executed. Device-number re- 
fers to the IBM number of a specific 
device, e. g. 2540 means the 2540 
Card Read/ Punch. An exception to 
this rule is the device number 2400 


which includes all of the magnetic 
tape units in the IBM 2400 series 
(2401, 2402, 2403, or 2404). When 

the device number is specified, it 
may be optionally followed by the re- 
served word UNIT or UNITS. A de- 
vice-number must conform to the de- 
vice class. The allowable device-num- 
bers for each class are given below. 


CLASS 

DEVICE TYPES 

DEVICE NUMBERS 

UTILITY 

Magnetic tape, disk, 
drum, data cell 

2400, 2301, 2302, 2311, 

2321, 2314 

DIRECT- 

ACCESS 

Disk, drum, data cell 

2301, 2302, 2311, 2321, 

2314 

UNIT- 

RECORD 

Printers, card 
read /punches 

1403, 1404, 1442R, 1442P, 

1443, 2520R, 2520P, 2540R, 

2540P (R = reader 

P = punch) 


Going back to our PARTS-MASTER 
file, assuming that it was to be read 


from a 2540 reader, our SELECT en- 
try would be - 


SELECT PARTS-MASTER, ASSIGN TO 'PARTMAST' UNIT-RECORD 2540R UNIT. 


If, on the other hand, the file was would then be - 

contained on magnetic tape the entry 
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SELECT PARTS-MASTER, ASSIGN TO 'PARTMAST' UTILITY 2400 UNIT. 


Let' s look at an illustration which 
applies what we have learned about 
the Identification and Environment 
divisions. Figure 3 illustrates the 
coding for a program which will read 
in a master list of names and addres- 
ses from a 2400 series tape unit and 
update it by changes which are punch- 
ed into cards and read from a2540 
card reader. An updated list is writ- 
ten out on another 2400 series tape 
unit. 

The coding starts with the Iden- 
tification division header entry. The 
program name is 'UPDATE'. This 
name will be punched into a job con- 
trol card and will identify the program 
when it is executed. The author's 
name and the dates on which the pro- 
gram was written and compiled are 
specified. The REMARKS paragraph 
contains several entries which des- 
cribe the purpose and operation of 
the program. 

The Environment division header 
entry appear s on line 12 and is follow- 
ed by the Configuration Section header 
entry on line 13. The SOURCE- COM- 
PUTER and OBJECT-COMPUTER 
paragraphs specify that a Model 30 
with 32,768 bytes of storage will be 
used to compile and execute the pro- 
gram. The Input-Output Section and 
File- Control paragraph header entries 
are on lines 16 and 17. The File-Con- 
trol paragraph consists of three SE- 
LECT entries, one for each file used 
in the program. In the first SELECT 
entry, the file -name is OLD-MLASTER 
and the external-file-name is 'OLD- 
MAS'. The device class of UTILITY 


means that the file will be placed on 
a device which can read and write re- 
cords sequentially. The device-num- 
ber 2400 specifies a magnetic tape 
unit in the 2400 series. 

The second SELECT entry spe- 
cifies CHANGES as both the file-name 
and the external-file-name. This is 
permissible, the only drawback is 
that when you do this, the name can- 
not exceed 8 characters. UNIT-RE- 
CORD indicates that the device is a 
printer, reader or punch. The de- 
vice-number 2540R identifies the de- 
vice as a card reader Model num- 
ber 2540. 

The output file is assigned in the 
third SELECT entry. The file-name 
is NEW-MASTER and the external- 
file-name is 'NEWMAST'. The de- 
vice class and number specify a se- 
quentially organized file to be written 
on tape. 

One last thing about the SELECT 
entry. SELECT entries never spe- 
cify whether the files being assigned 
are input or output files. The identi- 
fication of a file as either input or 
output is performed in the Procedure 
division when the files are opened. 

The I-O- CONTROL paragraph is 
used to specify special input /output 
techniques and may be omitted if un- 
needed. The paragraph consists of 
several entries only one of which -- 
the APPLY entry --will be discussed 
atthistime. Theformatof the APPLY 
entry is given below. 
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APPLY overflow-name TO FORM-OVERFLOW ON file-name. 


The APPLY entry is used when the 
output file is a printed report and a 
test of channel 12 on the printer is 
necessary. Overflow-name is a pro- 
grammer-supplied name which will 
be equated to the channel 12 condition. 
File-name is the name of the file spe- 
cified in the SELECT entry in the 
File-Control paragraph. 

The APPLY entry allows the pro- 
grammer to equate a symbolic name 


(overflow-name) to a physical condi- 
tion on a printer, i. e. sensing of 
channel 12. In the Procedure divi- 
sion, the programmer can then use 
this name to test if channel 12 has 
been reached. To see how this works, 
let' s us e END-OF- PAGE as the over- 
flow-name and PRINTED- REPORT as 
the file-name. Our APPLY entry in 
the I-O-CONTROL paragraph would 
be - 


I-O-CONTROL. APPLY END-OF-PAGE TO FORM- OVERFLOW ON 

PRINTED - REPORT. 


In the Procedure division, we the following entry, 

could then test for channel 12 with 


IF END-OF-PAGE, WRITE PRINTED- LINE AFTER 
SKIPPING- TO- CHAN- ONE. 


In other words, the APPLY en- 
try permits the programmer to equate 
a name (overflow-name) to a condition 
(channel 1 2 on the printer). This alone 
will not cause the printer to skip to 
channel 1 after channel 12 has been 
sensed. A test must still be made in 


the Procedure division to determine 
whether channel 12 has been reached 
and if so, the printer must then be 
directed to skip to channel 1. We 
shall see more applications of the 
APPLY clause when we begin our 
study of the Procedure division. 
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A standard card form, IBM electro C61897, is available for punching source statements from this form. 








In review, the Environment divi- 
sion is used to specify the computers 
used in compiling and executing the 
program, to assign a file to a device, 
and to indicate the class and number 
of the device. The division consists 
of the mandatory Configuration sec- 
tion and the optional Input- Output sec- 
tion. The two paragraphs in the Con- 
figuration section specify the model 
numbers and storage capacities of 
the computers to be used. The Input- 
Output section is included when in- 
put or output files are to be proces- 
sed by the program. When this is the 


case, the File-Control paragraph 
must be included. This paragraph 
selects each file and assigns it to a 
device class and number. The I-O- 
Control paragraph is optional and can 
be used to specify special input/ out- 
put techniques. The APPLY entry, as 
we have seen, enables the program- 
mer to test for channel 12 when a. 
printed report is being produced, by 
equating a programmer- supplied 
name to the condition and then using 
this name in a test in the Procedure 
division. 
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5.1 THE DATA DIVISION 


The Data division is that part of a 
COBOL program in which input and 
output files and records are defined 


and storage reserved for work areas, 
I/O areas, and constants. The struc- 
ture of the division is shown below - 


Header entry 

DATA DIVISION. 

Section 

1 

FTT.F SECTION. 

Entry 

file- description entry 

Entry 

record-description entry . . . 

Entry 

(file-description entry — . 

Entry 

record-description entry . . . I . . . 

Section 


working-storage SECTION. 

Entry 


independent- item-description . . 

Entry 


record-description . 


Although each section is optional, 
the majority of programs process 
files of input and output data, conse- 
quently the File section will appear 
in most programs. When both sections 
appear in the program the File sec- 
tion and its entries must be written 
first and then be followed by the Work- 
ing-Storage section and its entries. 


In the File section, file and record 
description entries must be written 
for each file referenced in the pro- 
gram. The order in which the files 
and records are described is left to 
the programmer. In the Working- 
Storage section, however, all inde- 
pendent-item-descriptions if present, 
must appear before any record-des- 
criptions. 
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5.2 THE FILE SECTION 


The File section is used to des- 
cribe the organization of an input or 
output file and the records which make 
up the file. Each file is defined by a 
file description entry consisting of a 
number of clauses. The file descrip- 
tion entry is then followed immediate- 
ly by one or more record description 
entries, one for each type of record 
contained in the file. Any additional 
files referred to in the program are 
described in a similar manner with 
the file des cription appearing first 
and then followed by a record des- 
cription^). Every file named in a 
SELECT entry in the Environment 


division must be defined in this sec- 
tion. The order in which the files are 
described is not significant however. 

FILE DESCRIPTION ENTRY 

File description entries are used 
to describe the physical organization 
of the file including such information 
as recording mode, blocking factor, 
record length, and the presence or 
absence of label records. A file des- 
cription entry must be written for 
every file used in the program. The 
format of a file description entry is: 


level- indicator 
clause 
clause 
clause 

clause 

clause 


FD file-name 
RECORDING MODE IS mode 
BLOCK CONTAINS integer 


3 o 

| rECORD CONTAINS junteger- 2 Toj integer- 3 CHARACTERsJ 


CHARACTERS 

RECORDS 


J 


LABEL RECORD IS 
LABEL RECORDS ARE 


STANDARD 

OMITTED 

data-name 


DATA RECORD IS / 

DATA RECORDS ARE ( record-name . . . 


FDisthe level-indicator and must 
begin at Margin A; the file-name and 
clauses may be written on the same 
line but must be contained in Margin 
B. File-name is the programmer- 
supplied name which identifies the 
file. It must be the same name given 
in the SELECT entry which assigned 
the file to a device. Every FD entry 
must contain the LABEL RECORD and 
DATA RECORD clauses. The use of 
the remaining clauses is optional and 
depends upon the requirements of the 
program. The classes may be writ- 


ten on s eparate lines; the last clause, 
however, must be immediately fol- 
lowed by a period. 

RECORDING MODE CLAUSE 

The Recording Mode clause is used 
by the programmer to specify the 
block and record formats of his file. 
In general, the 'mode 1 specification 
(either Y, F or U) is dependent on the 
organization of the file. There are, 
however, two general rules concern- 
ing its use: 
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cified as mode F 


1. If omitted, the compiler will as- 
sume mode Y 

The format of the clause is given 

2. Card and printer files must be spe- below. 


If 


RECORDING MODE IS 


modej 


Since the format of the clause con- 
tains only one mandatory word, any 
of the following would be correct: RE- 
CORDING MODE IS F; RECORDING 
IS F; RECORDING MODE F; or sim- 
ply - RECORDING F. 

The three permissible modes 
whichmay be specified are V (Variable 
length), F (Fixed length), and U (Un- 
specified length). 

Recording mode V is used when 
each record contains a record length 
field and each block, a block length 
field. It is the only mode which will 
handle blocks containing two or more 
variable length records. The record 
and block length fields, incidentally, 
are notdescribed in the Data division 
since provision is automatically made 
for them. Recording mode V can also 
handle files which contain one record 
per block and the records may be 


fixed in length. The only requirement 
being that the record and block length 
fields must be present. 

Recording mode F is used for files 
in which all the records are the same 
length. There are no record length or 
block length fields in the file. A 
block may contain one or more re- 
cords and each block generally con- 
tains the same number of records. 
Card and printer files must have 
their recording mode specified as F. 

In recording mode U, on the other 
hand, records may be either fixed or 
variable in length; however, there 
may only be one record per block. 
There are no record length or block 
length fields. Figure 1 is a table il- 
lustrating the capabilities and re- 
quirements of the three recording 
modes. 


Mode 

Variable 

Length 

Records 

Supported 

Fixed Length 

Records 

Supported 

Length 

Fields 

Required 

Multiple 
Records 
Per Block 
Permitted 

V 

Yes 

Yes 

Yes 

Yes 

F 

No 

Yes 

No 

Yes 

U 

Yes 

Yes 

No 

No 


Figure 1. 
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BLOCK CONTAINS CLAUSE 


The Block Contains clause speci- 
fies either the number of records or 
the number of character s contained in 


a block. The clause may be omitted 
when there is only one record per 
block. The format of the clause is 
shown below. 


Jj, 


BLOCK CONTAINS integer- 1 


characters! 

RECORDS 


in 


When the number of characters in 
a block are specified, integer- 1 in- 
dicates the number of characters in 
the longest block contained in the file. 
For a fixed length format file, the 
number of characters specified by 


integer- 1 will, of course, be the same 
for eachblockin the file. If a file had 
500 characters to the block, any of 
the following statements would be per- 
mis sible. 


BLOCK CONTAINS 500 CHARACTERS 
BLOCK CONTAINS 500 
BLOCK 500 CHARACTERS 
BLOCK 500 


Note thatunless 'RECORDS' is speci- 
fied, 'CHARACTERS' is assumed. 

When the number of records in a 
block is given, integer- 1 specifies the 
number of records in each block in a 


fixed length format file, or the num- 
ber of the longest records which would 
form the longest possible block. To 
specify a blocking factor of 25, we 
could write any of the statements 
given below. 
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BLOCK CONTAINS 25 RECORDS 
BLOCK 25 RECORDS 


RECORD CONTAINS CLAUSE 

The Record Contains clause indi- 
cates the number of characters in the 
longest record in the file. It may al- 
so specify the number of characters 


in the shortest and longest records in 
the file. The clause may be omitted 
since the compiler obtains the record 
length from the record description 
entry. The format of the clause is 
given below. 


j ~RECQRD CONTAINS [integer- 2 To] integer- 3 


CHARACTERS 


3 


Integer- 3 is used to specify the 
longest record. Integer- 2 may be used 
to specify the shortest record. If all 


the records in a file are 80 characters 
in length, the clause could be written 
in any of the following forms: 


RECORD CONTAINS 80 CHARACTERS 
RECORD CONTAINS 80 
RECORD 80 CHARACTERS 
RECORD 80 


If, on the other hand, the file con- 
tained records ranging from a mini- 


mum of 80 characters to a maximum 
of 400, the clause could be written as: 
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RECORD CONTAINS 80 TO 400 CHARACTERS 
RECORD CONTAINS 80 TO 400 
RECORD 80 TO 400 


LABEL RECORDS CLAUSE 


This clause must appear in every 
file description entry. It is used to in- 


dicate the presence or absence of 
standard labels and/or user labels. 
The format of the clause is: 


, 

( STANDARD ) 

) LABEL RECORD IS / 

j OMITTED [ 

( LABEL RECORDS ARE.) 

( data-name ) 


When STANDARD is specified, it 
means that the file has labels which 
are in the standard System/ 360 for- 
mat. In this event, the labels are 
checked or created automatically and 
no further action is required by the 
programmer. v 

OMITTED means that the file has 
no labels or non-standard labels. 
OMITTED must be specified for card 
and printer files since they contain no 
identifying labels. If the files contain 
non- standard labels, they must be de- 
fined as a separate file and described 


as a record in the Data division. The 
programmer must then process these 
labels in the Procedure division. 

Data-name is a programmer- sup- 
plied name. When this is present in 
the Label Records clause, it means 
that there are user labels present in 
addition to the standard System/ 35"o" 
labels. Data-name refer s to the name 
of a storage area in which these ad- 
ditional labels will be processed by 
the programmer. Some examples of 
the Label Records clause are given 
below. 


LABEL RECORD IS OMITTED 
LABEL RECORDS STANDARD 
LABEL RECORD IS MY- LABEL 
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jJATA RECORD CLAUSE 


The Data Record clause specifies 
the programmer- supplied name of 
each type of record in the file. Be- 


cause every file contains at least one 
type of record, the Data Record 
clause must always appear in the FD 
entry. The format of the clause is: 


( DATA RECORD IS f 


DATA RECORDS ARE | 

record-name . . . 


Record-name is the programmer- 
supplied name which will appear in 
the record-description entry. If the 
file contains more than one type of 
record, each record is described 
with a record- des cription entry and 
their programmer- supplied names 


are given in the Data Records clause. 
Let's assume that our file contains 
only one type of record and that we 
will give it the name DETAIL- RE- 
CORD in the record-description en- 
try. Our Data Record clause would 
be written as follows: 


DATA RECORD IS DETAIL- RECORD 


If the file contained three types of 
records and their names were NAME- 
RECORD, EARNINGS -RECORD, and 


DEDUCTIONS- RECORD, our clause 
would then be written as: 


DATA RECORDS ARE NAME-RECORD, EARNINGS -RECORD, DEDUCTION- RECORD 
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Notice that the use of 'RECORDS 
ARE' is optional, the plural forms 
being provided for clarity only. It 
would have been perfectly valid to 
have used the singular form, i. e. 
DATA RECORD IS NAME- RECORD, 
etc. 

Figure 2, illustrates the coding of 
an FD entry for a card file. The en- 
try is preceded by division and sec- 
tion header entries which must appear 
on a line by themselves. The level- 
indicator 'FD' is written in Margin A 
and the clauses of the entry within 
Margin B. The file-name is 'CARD- 
FILE'. Recording mode is F which is 
the mode which must be specified for 
card and printer files. Note that, al- 
though this clause is optional, it 
could not be omitted in this case since 
recording mode Y is assumed when 
the clause is omitted. The Block Con- 
tains clause has been left out because 
the file contains only one record to 
the block. The Record Contains clause 
specifies that the record length is 80 
characters. As we have seen, we 
could have also left this clause out 
since the compiler obtains the record 
length from the record-description 
entry. The Label Records clause 
must be included in every FD entry 
and must specify 'OMITTED' if the 
file is a card or printer file. The 
Data Record clause must also appear 
in all FD entries. In this case, 
'CARD-RECORD' is the record-name 
which will be assigned in the associ- 
ated record-description entry. We 
indicate the end of this entry by a 
period immediately following the 
Data Records clause. 

In this illustration, we have writ- 
ten several clauses on the same line. 
Figure 2 also shows the same entry 
but with each clause occupying a se- 
parate line. Although this method re- 
quires more lines on the coding sheet, 
it results in a more readable entry. 
The last clause, however, must still 
be followed by a period. 


In Figure 3, we see the FD entry 
for a file with variable length records 
recorded on magnetic tape. Our re- 
cords are variable in length there- 
fore we can omit the Recording Mode 
clause and let the compiler assume 
mode V. The Block Contains clause 
specifies a length of 1640 characters. 
Since our Recording Mode is Y, this 
means that the longest block in the 
file will consist of 1640 characters. 
The Record Contains clause provides 
more information about the organiza- 
tion of the file. It specifies that the 
shortest record will contain 50 cha- 
racters and the longest 80 characters. 
The specification of 'STANDARD' in 
the Label Records clause means that 
the file contains standard 360 labels. 
The Data Records clause gives the 
programmer- supplied names for the 
two types of records appearing in the 
file. Both of these names will be used 
in record-description entries which 
will immediately follow the file-des- 
cription entry. 

In review, the FD entry describes 
the organization of the file by means 
of clauses which indicate the record- 
ingmode, block and record size, pre- 
sence or absence of standard labels, 
and cross-references the entry to the 
associated record-description entry 
or entries, by specifying the pro- 
grammer- supplied names as signed to 
the records. The entry is preceded 
by the level- indicator 'FD' (File 
Description) which must appear in 
Margin A. The level-indicator is im- 
mediately followed by the file-name 
which must be the same name used to 
SELECT the file in the Environment 
Division. The file-name and the 
clauses used in the entry must be 
written in Margin B. A period must 
follow the last clause in the entry. 
EachFD entry must include the Label 
Record and Data Record clauses; the 
remaining clauses are used as re- 
quired. 


Lesson C 5 


Page 8. 



ii 

If - 


h | 
y i 
u i 
i ? 

(/) I 



Si 1 1 


A standard card form, IBM electro C61897, is available for punching source statements from this form 








A standard card form, IBM electro C61897, is available for punching source statements from this form. 







NOTES 


NOTES 


